Top 10k strings from Computer Studies - Files (1984)(Longman Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
3 Press 2 from the UK 2 ;N;" ";F$(1 2 FIELD ";F$(1 1 tape counter number 1 search routine 1 s*c*r>20000 1 print files where Field specifications match 1 holds screen when full 1 find end of file 1 files 78 1 f$(t,q)=f$(t+1 1 f$(n,t(m)) 1 bubble sorting routine used on file 1 b$=f$(t,q) 1 TEMPORARY STORES FOR SEARCH DATA 1 TAPE COUNTER 1 RE-ORDER A FILE 1 PTION ? PRESS 1 FILES 1 F$(NE,Q)=" ": 1 F$(NE,Q);: 1 END OF PROGRAM 1 DATE of 1972 1 A$="STUDIES": 1 A$="COMPUTER": 1 A$=" FILES ": 1 ;z$;z$;z$; 1 ;"sure you allow enough spaces." 1 ;"set to your requirements." 1 ;"or run demonstrations using"; 1 ;"must take the shape F$(R,C,S)." 1 ;"its own DATA." 1 ;"for better displays." 1 ;"This program has routines to"; 1 ;"PLEASE TELL ME WHAT TO LOOK FOR:"; 1 ;"Numbers can be handled but be"; 1 ;"LONGMAN SOFTWARE 1 ;"It will manage your own files"; 1 ;"Files handled by this program"; 1 ;" " 1 5000 checks numbers 1 /(s*c*r)): 1 -s*r*c)*100 1 ,X);" ENTRY ";F$(NE,X); 1 ''" This shows you the file as it"'" is stands at the moment." 1 ''" This routine lets you re-order your file in an alphabetical or numerical order based on any of the columns." 1 '" You cannot expand the file if"'" you discover it is too small!" 1 '" You can specify 2 or 3 FIELDS "'" at the same time." 1 '" The program will search for any"'" stamps 1 '" The program will now search for"'" those stamps 1 '" The demonstration DATA is from"'" a stamp collection." 1 '" Only very small files will fit"'" on one screen. Others must be "'" displayed a little at a time." 1 '" Note the following:"''" 1 '" Make sure that a new file is"'" more than big enough to hold"'" all the entries you may want"'" to include in it later." 1 '" If you want to keep your file ordered in a particular way, then simply add new entries to the end of the file, and use this to sort them into order." 1 '" If you are 1 '" For example,a stamp collection can be arranged alphabetically by PLACE,in DATE order,in order of FACE value,of COST price, or of re-sale VALUE." 1 '" Find and insert a tape on"'" which to save the file." 1 '" Field specifications must be spelt the same way,and in the same typeFACE as the entries you are searching for." 1 '" Are you specifying your fields properly? Return and select the Update option. This will allow you to look closely at the files." 1 "USA","1920",".25","5.50","7.90" 1 "UK","1972","1.00",".10",".20" 1 "UK","1972",".01",".50","2.50" 1 "UK","1965",".10",".25","1.25" 1 "TAHITI","1966","1.05",".50","1.00" 1 "SWITZ","1980",".30",".05",".05" 1 "PLACE","DATE","FACE","COST","VALUE" 1 "GERMNY","1978","3.00","1.25","1.35" 1 "FRANCE","1965","10.00","2.00","1.95" 1 "FRANCE","1948","5.00","7.50","8.75" 1 "FRANCE","1920","5.00","1.25","3.00" 1 "DOUBLE WIDTH" 1 "DOUBLE HEIGHT" 1 ");F$(NE,X) 1 "''" To do this you have to specify"'" FIELDS (column headings)." 1 "''" Before 1 "'" tell me what size, and also,"'" the column headings." 1 "'" tell me the size of the file"'" so that I can DIM an array"'" to handle it." 1 "'" and connect the MIC. lead." 1 "" and specify "" 1 " You can..."'" 1 " You can use it to remind "'" yourself what is in the file." 1 " There's nothing matches." 1 " Select the FIELD "" 1 " Select the 1 " Note the 1 " It's main use is for keeping"'" your files up to date." 1 " I can start the display at any"'" row you choose." 1 " In order of which COLUMN ?" 1 you will have to tell me next time you use this file." 1 with"'" a 1 when ready for more 1 when ready 1 under 30"; 1 to start 1 to search 1 to hold display 1 to go on. 1 to go on ": 1 number to start from - 1 to go from beginning 1 making a new file 1 end of field routine 1 column number: "; 1 are"'" for your reference." 1 another option 1 an old entry"'" 1 an entry." 1 a new entry"'" 1 WHAT NOW? ANOTHER 1 USING YOUR OWN DATA 1 TOO BIG!! REDUCE BY "; 1 TO START 1 TO SELECT 1 TO SEARCH 1 TO HOLD DISPLAY 1 TO CHANGE 1 THIS MAY TAKE A MOMENT 1 SEARCHING FOR... 1 SEARCH A FILE 1 SAVING A FILE 1 Rewind to start of file, check EAR lead and press 1 ROW NUMBER TO DELETE ? 1 ROW NUMBER TO CHANGE ? 1 ROW NUMBER OF NEW ENTRY ? 1 ROW 1 CARRIES COLUMN HEADINGS. START FROM 2.[ANY KEY] TO GO ON 1 RE-ARRANGE 1 PROGRAM READY - PRESS ANY KEY ": 1 PRODUCTS/CONTRACT BOOKS 1 ONE MOMENT WHILE I READ ! 1 Number of ROWS in file? 1 Number of COLUMNS ? (MAX.6) 1 NUmber of SPACES per item - set possible maximum 1 NEW ENTRY FOR ";F$(1 1 LOADing from tape 1 If VERIFY fails,you can restartthe SAVE routine by 1 Heading for column ";n;" 1 GOTO 4000 1 Find DATA tape, rewind to start of file and press 1 Filename for this DATA ? 1 FILENAME 1 FILE OPTIONS 1 FIELDS SET - 1 FIELD SPECIFICATION 1 FIELD NUMBER: "; 1 ENTRY FOR ";F$(1 1 END UPDATE 1 Do you want to VERIFY that it has been saved? Press 1 Create your file using Update routine. Press 1 CREATE/UPDATE A FILE 1 Are you LOADing DATA from tape? Press 1 1984 MERCURIAN PULP 1 ""PLACE"" and"'" specify "" 1 UPDATE A FILE 1 SEARCH A FILE 1 SAVE DATA ON TAPE 1 RE-ORDER A FILE 1 PRESS A 1 Own files or Computer's ? 1 END OF PROGRAM 1 DISPLAY MORE 1 ANOTHER FIELD ? 1 Column Spacing for display 1 number of lines displayed 1 SEARCHING AND LOADING 1 PLEASE WAIT " 1 how many fields set 1 1